let () =
  let lexbuf = Lexing.from_channel stdin in
  let top = Parser.top Lexer.read lexbuf in
  let s = Ast.format_toplevel top in
  print_string s
